perm filename TRY.SAI[L,MRC] blob sn#418146 filedate 1979-02-11 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TRYIT"
C00003 ENDMK
C⊗;
BEGIN "TRYIT"

STRING NEWLINE;
NEWLINE ← "
";
BEGIN
INTEGER I,J;
FOR I ← 1 STEP 1 UNTIL 8 DO
  FOR J ← 1 STEP 1 UNTIL 36 DO
  PRINT (J, (I*I-1)/2)-1);
    PRINT(NEWLINE);
END;
END "TRYIT";